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-- MlUtil ityDefs.Mesa Edited by Sandman on March 21, 1978 3:47 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledef s", 
ControlDefs: FROM "controldef s" , 
ImageDefs: FROM "imagedefs" , 
LoadStateDefs: FROM "loadstatedef s" , 
ProcessDefs: FROM "processdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" ; 

DEFINITIONS FROM ImageDefs; 

MIUtilityDefs: DEFINITIONS SHARES ImageDefs, ProcessDefs - 
BEGIN 

CFA: TYPE » AltoFileDefs .CFA; 

DataSegmentHandle: TYPE ■ SegmentDefs .DataSegmentHandle; 

FP: TYPE = AltoFileDefs. FP; 

FileHandle: TYPE = SegmentDefs . FileHandle; 

FileRequest: TYPE - ImageDefs . FileRequest; 

FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 

PageCount: TYPE = Al toDef s . PageCount; 

PageNumber: TYPE = Al toDef s . PageNumber ; 

shortFileRequest : TYPE = short ImageDefs . FileRequest ; 

vDA: TYPE = Al toFi leDef s . vDA; 

GlobalFrameHandle: TYPE = ControlDefs .GlobalFrameHandle; 

LoadStateGFT: TYPE = LoadStateDefs .LoadStateGFT; 

Configlndex: TYPE = LoadStateDefs .Configlndex; 

StreamHandle: TYPE = StreamDefs .StreamHandle; 

ProcDesc: TYPE = ControlDefs. ProcDesc; 

— file requests 

InitFileRequest: PROCEDURE; 

AddFileRequest: PROCEDURE [r: POINTER TO FileRequest]; 
DropFileRequest: PROCEDURE [f: FileHandle]; 
ProcessFileRequests: PROCEDURE; 

-- bed file names 

GetBcdFileNames: PROCEDURE [nbcds: Configlndex] 
RETURNS [names: DESCRIPTOR FOR ARRAY OF STRING]; 

-~ Bed Merging Management 

MergeAllBcds: PROCEDURE [initialgft: LoadStateGFT, code: BOOLEAN, 

names: DESCRIPTOR FOR ARRAY OF STRING]; 
MergeABcd: PROCEDURE [config: Configlndex, initgft: LoadStateGFT. 

code: BOOLEAN, names: DESCRIPTOR FOR ARRAY OF STRING]; 
NewBcdSegmentFromStream: PROCEDURE [ 

stream: StreamDefs .DiskHandle , page: PageNumber] 

RETURNS [newpage: PageNumber, seg: FileSegmentHandle]; 
MoveWords: PROCEDURE [source: POINTER, nwords: CARDINAL]; 

-- space allocation 

SpaceHeader: TYPE = RECORD [ 
link: POINTER TO SpaceHeader, 
segment: DataSegmentHandle]; 

InitSpace: PROCEDURE; 

GetSpace: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER]; 

GetString: PROCEDURE [oldstring: STRING] RETURNS [newstring: STRING]; 

FreeAllSpace: PROCEDURE; 

-- image file management 

LockCodeSegment: PROCEDURE [p: ProcDesc]; 

UnlockCodeSegment: PROCEDURE [p: ProcDesc]; 

KDSegment: PROCEDURE RETURNS [FileSegmentHandle]; 

DAofPage: PROCEDURE [file: FileHandle, page: PageNumber] RETURNS [next: vDA]; 

FillTnCAs: PROCEDURE [ 

Image: POINTER TO ImageHeader, mapindex: CARDINAL, ca: POINTER]; 
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SwapOutUmockedCode: PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN]; 
SwapOutUmocked: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN]; 
BashHint: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN]; 
BashFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN]; 
PatchUpGFT: PROCEDURE; 

InitLoadStateGFT: PROCEDURE [initgft: LoadStateGFT, merge: BOOLEAN, nbcds: Conf iglndex] ; 
NumberGFIInConfig: PROCEDURE [initgft: LoadStateGFT, con: Configlndex] 
RETURNS [ngfi: ControlDef s .GFTIndex] ; 

END. 



